home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  746b  |  42 lines
  1. 1000 rem *** ein einfaches sprite ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten";
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten einlesen
  10. 1090 :
  11. 1100 for n = 896 to 958
  12. 1110 :   poke n,255
  13. 1120 next n
  14. 1130 :
  15. 1140 :
  16. 1150 rem ** sprite-steuerung
  17. 1160 :
  18. 1170 print "[147]";    :rem bilds.loeschen
  19. 1180 poke 2040,14  :rem datenzeiger
  20. 1190 :
  21. 1200 vic = 53248   :rem vic-baustein
  22. 1210 poke vic,170  :rem horizont. pos.
  23. 1220 poke vic+1,120:rem vertikale pos.
  24. 1230 poke vic+39,13:rem gruenes sprite
  25. 1240 poke vic+21,1 :rem sprite 0 ein
  26. 1250 :
  27. 1260 :
  28. 1270 rem ** prog.ende nach tastendruck
  29. 1280 :
  30. 1290 get kp$
  31. 1300 if kp$ = "" then 1290
  32. 1310 :
  33. 1320 :
  34. 1330 rem ** register zuruecksetzen
  35. 1340 :
  36. 1350 poke vic+21,0 :rem ruecksetzung
  37. 1360 poke vic+39,0 :rem in umgekehrter
  38. 1370 poke vic+1,0  :rem reihenfolge...
  39. 1380 poke vic,0
  40. 1390 :
  41. 1400 end
  42.